home *** CD-ROM | disk | FTP | other *** search
/ Night Owl 6 / Night Owl's Shareware - PDSI-006 - Night Owl Corp (1990).iso / 045a / pcswnt.zip / WINWSFX.BAS < prev   
BASIC Source File  |  1991-06-05  |  296b  |  13 lines
  1.  5 color 14,4
  2.  7 cls
  3. 10 CLS:?
  4. 15 print "*** AS-400 WORKSTATION FUNCTION chargé ***":?
  5. 20 PRINT "    Alt-Esc pour changer de session":?
  6. 30 PRINT "    X pour sortir (après SIGNOFF)":?
  7. 40 PRINT
  8. 50 WHILE INKEY$<>""
  9. 60 WEND
  10. 70 I$=INPUT$(1)
  11. 80 IF I$<>"x" AND I$<>"X" THEN GOTO 70
  12. 90 SYSTEM
  13.